home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / WIN_VB / VB_7DAYS.ZIP;1 / TABENTER.BAS < prev   
Encoding:
BASIC Source File  |  1993-02-17  |  274 b   |  14 lines
  1. ' TabEnter
  2.  
  3. ' Use this code to allow users to move from field to field
  4. ' by pressing Enter instead of Tab.
  5.  
  6. Const KEY_RETURN = &HD
  7.  
  8. Sub Text1_KeyPress (KeyAscii As Integer)
  9.   If KeyAscii = KEY_RETURN Then
  10.     KeyAscii = 0
  11.     SendKeys "{Tab}"
  12.   End If
  13. End Sub
  14.